

/*acf_acct acf_cust acf_ref acf_u8ac acf_user1 acf_user2 acf_vend*/



DEFINE VARIABLE part LIKE pt_part.
DEFINE VARIABLE grp LIKE pt_dsgn_grp.

DEFINE VARIABLE qty LIKE ro_run .

DEFINE VARIABLE p1 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p2 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p3 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p4 AS CHARACTER FORMAT "x(24)".
DEFINE VARIABLE p5 AS CHARACTER FORMAT "x(24)".



DEFINE STREAM bf .

    INPUT FROM VALUE("c:\kh.csv").   

    REPEAT ON ERROR UNDO, LEAVE WITH STREAM-IO WIDTH 132 :   

    IMPORT DELIMITER "," p1 p2 p3.

    
    CREATE acf_mstr.
    ASSIGN
        acf_acct = "1131"
        acf_cust = trim(p3)
        acf_u8ac = TRIM(p1)
        acf_user1 = TRIM(p2)
        .
   
        
END.


    INPUT FROM VALUE("c:\pt.csv").   

    REPEAT ON ERROR UNDO, LEAVE WITH STREAM-IO WIDTH 132 :   

    IMPORT DELIMITER "," p1 p2 .

    
    CREATE acf_mstr.
    ASSIGN
        acf_acct = "5101"
        acf_cust = trim(p2)
        acf_u8ac = TRIM(p1)
        .
   
        
END.
